home *** CD-ROM | disk | FTP | other *** search
/ Let's Explore Space Missions / Let's Explore Space Missions.iso / pc / program / 459main.dxr / Internal_6.ls < prev    next >
Encoding:
Text File  |  1997-12-04  |  819 b   |  28 lines
  1. on mouseDown
  2.   set tButtonState to word 2 of the name of member the memberNum of sprite the clickOn of castLib the castLibNum of sprite the clickOn
  3.   case tButtonState of
  4.     "upState":
  5.       hMakeSound("CLICK.AIF", 1)
  6.       if hValidClick01() = 1 then
  7.         hButtonScripts(tButtonState)
  8.       end if
  9.     "rolloverState":
  10.       hMakeSound("CLICK.AIF", 1)
  11.       if hValidClick02() = 1 then
  12.         hButtonScripts(tButtonState)
  13.       end if
  14.   end case
  15. end
  16.  
  17. on hButtonScripts pButtonState
  18.   global gSubCategoriesList, gProductNumber
  19.   hChangeCursor("watch")
  20.   if pButtonState = "rolloverState" then
  21.     hUndoButtonRollover()
  22.   end if
  23.   hAddToBackTrackList()
  24.   set tSelectedCategory to getProp(gSubCategoriesList, the clickOn)
  25.   hAddToSectionTrackList(tSelectedCategory)
  26.   go("D", gProductNumber & tSelectedCategory)
  27. end
  28.